home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00157_Anti-hand on order button if character not carded.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  803 b   |  41 lines
  1. property pSpr
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   if inSlotMode() then
  6.     setCursor(pSpr, pointingHand())
  7.   end if
  8. end
  9.  
  10. on mouseWithin
  11.   if inMixingMode() then
  12.     Active = barSlotToSprite(findActiveRecipeSlot())
  13.     thisChar = sprite(Active)
  14.     if thisChar.member.type <> #flash then
  15.       exit
  16.     end if
  17.     status = thisChar.pStatus
  18.     if not thisChar.pAlreadyCarded then
  19.       setCursor(pSpr, noGood())
  20.     else
  21.       if (status = #retreating) or (status = #bouncing) then
  22.         setCursor(pSpr, noGood())
  23.       else
  24.         setCursor(pSpr, pointingHand())
  25.       end if
  26.     end if
  27.   else
  28.     if not inSlotMode() then
  29.       setCursor(pSpr, noGood())
  30.     end if
  31.   end if
  32. end
  33.  
  34. on mouseLeave
  35.   setCursor(pSpr, pointingHand())
  36. end
  37.  
  38. on endSprite
  39.   setCursor(pSpr, defaultCursor())
  40. end
  41.